#!/usr/bin/perl

use CGI qw(:standard);
use LWP::Simple qw(get);
use XML::Writer; 
use XML::Simple; 
use XML::Twig;
use XML::DOM;


my $usuario = param('usuario'); 
my $pass = param('pass');

#print 'http://localhost:8080/exist/rest//db/nura/usuario.xml?_query=//proyjau[usuario[nombre=%22'.$usuario.'%22]]&proyjau[usuario[password=%22'.$pass.'%22]]';

my $url= get('http://localhost:8080/exist/rest//db/nura/usuario.xml?_query=//proyjau[usuario[nombre=%22'.$usuario.'%22]]&proyjau[usuario[password=%22'.$pass.'%22]]');
my $xml = XMLin($url);

print $xml->{'exist:hits'};



#print header( -type => 'application/xhtml+xml' );

 # my $writer = new XML::Writer();  # will write to stdout 
#print $usuario;
#print $pass;








